#!/usr/bin/perl -w
use strict;
use HTML::TreeBuilder;

my $root = HTML::TreeBuilder->new_from_file("search.html");

foreach my $row($root->find_by_tag_name("a")) {
	my %attr = $row->all_attr;
	my $href = $attr{"href"};
	print $href, "\n";
	#print $row->attr_value("href"), "\n"; 
}
